
    
    library(ggplot2)
    library(readr)
    library(viridis)
    
    data = read_csv("graph_examples.csv")
    
   

    data$`Toxicity score` = data$toxicity 


    plot_to_save = ggplot(data, aes(x = political, y = hate)) +
      geom_point(aes(size = `Toxicity score`))  +
      geom_text(aes(label=id),hjust=0, vjust=2)  +
      scale_colour_viridis(option = "magma", direction = -1) +
      xlab("Cosine similarity distance from political word vector") +
      ylab("Cosine similarity distance from hate word vector") +
      theme_classic() +
      theme(text = element_text(size=15)) +  
      theme(legend.position = "bottom") 

    ggsave("example_tweets_plot.jpg", plot = plot_to_save, width = 10, height = 10)

    